home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1994 March
/
64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64
/
kalender prg. 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
286b
|
13 lines
5 rem nicht geeignet fuer schaltjahre
10 input"datum format ttmmjjjj ";d$
20 t=val(mid$(d$,1,2))
30 m=val(mid$(d$,3,2))
40 j=val(mid$(d$,5))
50 if m<1 or m>12 then run
60 if t<1 or t>31 then run
70 rem welche tagesnummer ?
80 if m>2 then n=int(30.6*(m+1))-63+t:goto 100
90 n=int(30.6*(m+13))-428+t
100 print"nummer"n
110 end